CAADynamicalTime_TT2TAI <-
function(JD){.Call("CAADynamicalTime_TT2TAI", JD)}
